home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_1 / amytemp.lha / AmigaTemp / ARexxScr / ListTemp.rexx < prev    next >
OS/2 REXX Batch file  |  1995-05-20  |  2KB  |  49 lines
  1. /* AmigaTemp V1.1 ARexx                                   */
  2. /* Lists names and temperatures for all connected sensors */
  3.  
  4. /* Start */
  5. st = Show(P, 'AmigaTemp')              /* Is program running? */
  6. if st == 0 then                        /* No... */
  7. do
  8.    Address COMMAND                     
  9.    
  10.    'CCT1.1:CCT CX_POPUP=NO'            /* Start AmigaTemp. Don't POPUP */
  11.    if rc > 0 then do                   /* Program not found... */
  12.       Say "Can't start AmigaTemp"
  13.       exit
  14.    end   
  15.    
  16.    do 2 while ~Show(P, 'AmigaTemp')    /* Wait until program has started or at least 20 sek */
  17.       'waitforport AmigaTemp'
  18.    end
  19.    
  20.    if ~Show(P, 'AmigaTemp') then do    /* Something is wrong... */
  21.       Say "Can't start AmigaTemp"
  22.       exit
  23.    end
  24. end   
  25.  
  26. /* Main */
  27. Options RESULTS                        /* Retrive the string result field */
  28. Address 'AmigaTemp'                    /* Portname for AmigaTemp (Case sensitive) */
  29.  
  30. 'Version'; Say result                  /* Write name and version */
  31.  
  32. 'NumSensor'; numsensor = result        /* Number Of Sensors */
  33.  
  34. Say 'Name                Temp'
  35. Say '------------------------'
  36.  
  37. do i=1 to numsensor
  38.    'Name' i                            /* Name of sensor */    
  39.    If rc == 0 then                     /* rc == 0 if sensor is connected */
  40.    do
  41.       name = left(result, 18)          /* Name of sensor */
  42.       'Temp' i; temp = result          /* Current temperature */
  43.       Say name || temp;                /* Write... */
  44.    end   
  45. end i
  46.  
  47. if st == 0 then 'Quit'                 /* Quit AmigaTemp if we started it */
  48.  
  49.